{ Skript to branu Bramka.org }

procedure StatInit;
begin
// Povinné parametry:
  Version := 1.3; // číslo verze skriptu
  MsgSizes := '160'; //velikosti jednotivých zpráv oddělených středníkem, tedy v tomto případě jedna zpráva
  Countries := 'PL'; // onzačení do jakých zemí lze odesílat, INT je mezinárodní skript, jinak zkratky zemí ze staty.dat
// Nepovinné parametry:
  Prefixes := '501;603'; //seznam prefixů, které podporuje daná brána  
end;

procedure Send(index: integer);
begin
  case index of
    0: begin // první fáze odesílání
      GetPage(
        'http://www.bramka.org/sms/index.php', // URL sms brány
        'Msg_Loading');         // hlaska do okna událostí
    end;
    1: begin //druhá fáze odesílání
      AddResult('SMS został poprawnie wysłany.', 'Msg_Sent', Success); // pokud se na stránce nachází řetězec 'byla odesl', v okně událostí se zobrazí hláška o odeslání zprávy a odesílání je úspěšně ukončeno (Success)
      PostPage(
        'http://www.bramka.org/sms/send.php'
        'strPhoneNumber='+Prefix+PhoneNP+'&strText='+Message+'&Submit=Wysłat', //seznam názvů a hodnot polí
        'Msg_Sending'); // hláška do okna událostí      
    end;
  end;
end;

case ParamStr(0) of // vlastní vykonávání skriptu
  'STATINIT' : StatInit; // povinné - volá se statická inicializace proměnných
  'SEND' : Send(Phase); // povinné - volá se procedura Send
end;